home *** CD-ROM | disk | FTP | other *** search
/ Windows Shareware Gold / Windows Shareware Gold Volume 3 Number 1 (Sherburne Knowledge Systems) (1991).iso / apps / f1192 / gdi.scr < prev    next >
Encoding:
Text File  |  1991-09-22  |  354 b   |  21 lines
  1. ; Gdi.scr - draw unicom boxes on screen
  2. i = 0
  3. j = 0
  4. GdiCreatePen(0, 1,255,0,0)
  5. GdiCreateBrush(0,0,0)
  6. while (j< 350)
  7. i=0
  8. while (i<640)   
  9.       l = 0
  10.         while (l < 20)
  11.         GdiRectangle(i-l,j+l,i+40+l,j+60-l)
  12.         l = l+5
  13.         endwhile
  14.         gditextout(i - l/2,j+l,"UNICOM")
  15.     i=i+80
  16.   endwhile
  17. j=j+60
  18. endwhile
  19. exit
  20.  
  21.